Open Access-Status von Artikeln mit Charité-Beteiligung insgesamt und von Artikeln mit Charité-Corresponding Author 2018-2020
Open Access-Status von Artikeln mit Charité-Beteiligung nach Verlagen und Zeitschriften im Jahr 2020
Lizenzen der mit Charité-Beteiligung publizierten Artikel 2018-2020
| jahr | oa_status | value | percent |
|---|---|---|---|
| 2018 | gold | 1085 | 24.5 |
| 2018 | hybrid | 397 | 9.0 |
| 2018 | green | 359 | 8.1 |
| 2018 | bronze | 709 | 16.0 |
| 2018 | closed | 1779 | 40.2 |
| 2018 | kein ergebnis | 92 | 2.1 |
| 2019 | gold | 1407 | 30.1 |
| 2019 | hybrid | 531 | 11.4 |
| 2019 | green | 410 | 8.8 |
| 2019 | bronze | 546 | 11.7 |
| 2019 | closed | 1698 | 36.3 |
| 2019 | kein ergebnis | 84 | 1.8 |
| 2020 | gold | 1890 | 31.1 |
| 2020 | hybrid | 1323 | 21.8 |
| 2020 | green | 322 | 5.3 |
| 2020 | bronze | 424 | 7.0 |
| 2020 | closed | 2015 | 33.1 |
| 2020 | kein ergebnis | 107 | 1.8 |
| license | oa_status | count |
|---|---|---|
| cc-by | gold | 3342 |
| cc-by | hybrid | 1217 |
| cc-by | green | 44 |
| cc-by | bronze | 7 |
| cc-by | closed | 8 |
| cc-by | kein ergebnis | 0 |
| cc-by-nc | gold | 458 |
| cc-by-nc | hybrid | 391 |
| cc-by-nc | green | 26 |
| cc-by-nc | bronze | 4 |
| cc-by-nc | closed | 1 |
| cc-by-nc | kein ergebnis | 0 |
| cc-by-sa | gold | 2 |
| cc-by-sa | hybrid | 1 |
| cc-by-sa | green | 0 |
| cc-by-sa | bronze | 1 |
| cc-by-sa | closed | 0 |
| cc-by-sa | kein ergebnis | 0 |
| cc-by-nc-sa | gold | 19 |
| cc-by-nc-sa | hybrid | 10 |
| cc-by-nc-sa | green | 7 |
| cc-by-nc-sa | bronze | 1 |
| cc-by-nc-sa | closed | 0 |
| cc-by-nc-sa | kein ergebnis | 0 |
| cc-by-nd | gold | 0 |
| cc-by-nd | hybrid | 2 |
| cc-by-nd | green | 1 |
| cc-by-nd | bronze | 0 |
| cc-by-nd | closed | 0 |
| cc-by-nd | kein ergebnis | 0 |
| cc-by-nc-nd | gold | 445 |
| cc-by-nc-nd | hybrid | 596 |
| cc-by-nc-nd | green | 91 |
| cc-by-nc-nd | bronze | 24 |
| cc-by-nc-nd | closed | 6 |
| cc-by-nc-nd | kein ergebnis | 0 |
| sonstige Lizenz | gold | 6 |
| sonstige Lizenz | hybrid | 30 |
| sonstige Lizenz | green | 41 |
| sonstige Lizenz | bronze | 191 |
| sonstige Lizenz | closed | 9 |
| sonstige Lizenz | kein ergebnis | 0 |
| kein Ergebnis | gold | 70 |
| kein Ergebnis | hybrid | 4 |
| kein Ergebnis | green | 881 |
| kein Ergebnis | bronze | 1451 |
| kein Ergebnis | closed | 5468 |
| kein Ergebnis | kein ergebnis | 1 |
07.04.2021
---
title: "Charité Open Access Dashboard"
output:
flexdashboard::flex_dashboard:
theme:
version: 4
navbar-bg: "#e97202"
base_font: "'Source Sans Pro', Calibri, Candara, Arial, sans-serif" #"'Neue Helvetica Thai', Helvetica, Arial, sans-serif"
orientation: rows
vertical_layout: scroll
source_code: embed
css: styles.css
# author: Jan Taubitz
# email: jan.taubitz@charite.de
# source_code: https://github.com/medbib-charite/oa-dashboard
---
```{r setup, include=FALSE}
library(flexdashboard)
```
```{r}
source("data_1.R", encoding = 'UTF-8')
source("data_3_rcrossref.R", encoding = 'UTF-8')
```
Dashboard {data-icon="fa-globe"}
=====================================
Row
-----------------------------------------------------------------------
```{r}
##+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
## Analysis for gauges
##+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
load("data/data_unpaywall.Rda")
is_oa <- data %>%
group_by(jahr, oa_status, is_oa) %>%
summarise(count = n()) %>%
group_by(jahr) %>%
mutate(perc = round(count / sum(count) * 100, 1)) %>%
# eliminate rounding differences created by different groupings
group_by(jahr, is_oa) %>%
summarise(count = sum(count), perc = sum(perc))
is_doaj <- sort(table(data_unpaywall$journal_is_in_doaj), decreasing = TRUE)
is_doaj <- round(4152/sum(is_doaj)*100, 1)
is_corresponding <- sort(table(data$corresponding_author_cha), decreasing = TRUE)
is_corresponding <- round(6292/sum(is_corresponding)*100, 1)
```
### Open Access-Artikel mit Charité-Beteiligung 2018
```{r}
rate <- is_oa %>% filter(jahr == 2018 & is_oa == TRUE) %>% pull(perc)
gauge(rate, min = 0, max = 100, symbol = ' %', gaugeSectors(colors = "#e97202"))
```
### Open Access-Artikel mit Charité-Beteiligung 2019
```{r}
rate <- is_oa %>% filter(jahr == 2019 & is_oa == TRUE) %>% pull(perc)
gauge(rate, min = 0, max = 100, symbol = ' %', gaugeSectors(colors = "#e97202"))
```
### Open Access-Artikel mit Charité-Beteiligung 2020
```{r}
rate <- is_oa %>% filter(jahr == 2020 & is_oa == TRUE) %>% pull(perc)
gauge(rate, min = 0, max = 100, symbol = ' %', gaugeSectors(colors = "#e97202"))
```
Row
-----------------------------------------------------------------------
### Artikel mit Charité-Corresponding Author 2018-2020
```{r}
rate <- is_corresponding
gauge(rate, min = 0, max = 100, symbol = ' %', gaugeSectors(
success = c(40, 100), warning = c(30, 39), danger = c(0, 29)
))
```
### Artikel erscheint in einer reinen OA-Zeitschrift (vgl. [DOAJ](https://doaj.org/)) 2018-2020
```{r}
rate <- is_doaj
gauge(rate, min = 0, max = 100, symbol = ' %', gaugeSectors(colors = "#e97202"))
```
Row {data-height=auto}
-----------------------------------------------------------------------
### Analyse 1
Open Access-Status von Artikeln mit Charité-Beteiligung insgesamt und von Artikeln mit Charité-Corresponding Author 2018-2020
Row {data-height=auto}
-----------------------------------------------------------------------
### Artikel mit Charité-Beteiligung (in %)
```{r}
status_percent
```
### Artikel mit Charité-Corresponding Author (in %)
```{r}
status_corresponding_percent
```
Row {data-height=auto}
-----------------------------------------------------------------------
### Artikel mit Charité-Beteiligung (absolute Zahlen)
```{r}
status_absolute_spline
```
### Artikel mit Charité-Corresponding Author (absolute Zahlen)
```{r}
status_corresponding_absolute_spline
```
Row {data-height=auto}
-----------------------------------------------------------------------
### Analyse 2
Open Access-Status von Artikeln mit Charité-Beteiligung nach Verlagen und Zeitschriften im Jahr 2020
Row {data-height=auto}
-----------------------------------------------------------------------
### Artikel nach Verlagen in absoluten Zahlen
```{r}
publisher_absolute
```
### Artikel nach Zeitschriften in absoluten Zahlen
```{r}
journal_absolute
```
Row {.tabset}
-----------------------------------------------------------------------
### Zentrale Förderung von Artikeln mit Charité-Corresponding Author 2018-2020 nach Verlagen (Top 10)
```{r}
publisher_costs
```
### ... und nach Jahren
```{r}
publisher_costs_year
```
Row {data-height=auto}
-----------------------------------------------------------------------
### Analyse 3
Lizenzen der mit Charité-Beteiligung publizierten Artikel 2018-2020
Row
-----------------------------------------------------------------------
### Lizenzen für alle Artikel
```{r}
load("charts/chart_lizenzen.Rda")
chart_lizenzen
```
### Lizenzen für Artikel mit OA-Status gold, hybrid oder green
```{r}
load("charts/chart_lizenzen_oa.Rda")
chart_lizenzen_oa
```
Datentabellen
=====================================
Row
-----------------------------------------------------------------------
### Artikel mit Charité-Beteiligung: Jahr und OA-Status
```{r}
library(kableExtra)
load("data/data_unpaywall.Rda")
data_sum %>%
kbl(align = "llll") %>%
kable_styling() %>%
scroll_box(width = "100%", height = "250px",
box_css = "border: 1px solid #ddd; padding: 5px; "
)
```
Row
-----------------------------------------------------------------------
### Artikel Charité Corresponding Author: Jahr und OA-Status
```{r}
data_corresponding_sum %>%
kbl(align = "llll") %>%
kable_styling() %>%
scroll_box(width = "100%", height = "250px",
box_css = "border: 1px solid #ddd; padding: 5px; "
)
```
Row
-----------------------------------------------------------------------
### Artikel mit Charité-Beteiligung 2018-2020: Lizenzen und OA-Status
```{r}
load("data/data_license_oa_status_final_count_2.Rda")
data_license_oa_status_final_count_2 %>%
kbl(align = "lll") %>%
kable_styling() %>%
scroll_box(width = "100", height = "250px",
box_css = "border: 1px solid #ddd; padding: 5px; "
)
```
About
=====================================
```{r}
library(htmltools)
includeMarkdown('about.md')
```